Mac Mania 2/MacMania 2.toast/Demo's/Tools&Utilities/Programming/FBSpriteWorld 1.05b/Project 1.05b/FBSpriteWorld.glbl

Text File | 1994-07-07 | 1.7 KB | 83 lines | [TEXT/ZBAS]

'FBSpriteWorld.glbl by Robert Hommel
'© Copyright 1994
'All rights granted for any use whatsoever

'Disclaimer:  I've tested these routines quite thoroughly on my Mac
'LC running System 7.01 and FB 1.02c.  I make no promises or warranties
'of any kind.
'*********************************************************************

'--------------------------- CONSTANTS ------------------------------

'maximums

_maxLayers=10
_maxSprites=10
_maxFrames=10
_layerListSize=40
_spriteListSize=40
_frameListSize=40

'error codes

_swTooManyLayers=1
_swTooManySprites=2
_swTooManyFrames=3
_swNotSystemSeven=4
_swTimeMgrNotPresent=5
_swOutOfMemory=6

'----------------------------- RECORDS ------------------------------

DIM RECORD SpriteWorldRec
  DIM boundsRect.8
  DIM totalLayers
  DIM layerList.layerListSize
  DIM windowFramePtr&
  DIM backFramePtr&
  DIM loadFramePtr&
  DIM backPictHdl&
DIM END RECORD.SpriteWorldRec

DIM RECORD SWLayerRec
  DIM totalSprites
  DIM spriteList.spriteListSize
DIM END RECORD.SWLayerRec

DIM RECORD SWSpriteRec
  DIM currentFrameNum
  DIM currentRect.8
  DIM oldRect.8
  DIM deltaRect.8
  DIM sBoundsRect.8
  DIM isVisible
  DIM needsToBeDrawn
  DIM needsToBeErased
  DIM drawPartial
  DIM totalFrames
  DIM frameList.frameListSize
  DIM firstFrameIndex
  DIM lastFrameIndex
  DIM xDelta
  DIM yDelta
  DIM maskRegionHdl&
  DIM frameAdvance
  DIM frameTimeTask.tmXQSize
  DIM frameTTHasFired
  DIM frameTimeInterval
  DIM frameChangeProcPtr&
  DIM moveTimeTask.tmXQSize
  DIM moveTTHasFired
  DIM moveTimeInterval
  DIM moveProcPtr&
  DIM collideProcPtr&
  DIM isClone
DIM END RECORD.SWSpriteRec

DIM RECORD SWFrameRec
  DIM imageMapPtr&
  DIM maskMapPtr&
  DIM fBoundsRect.8
DIM END RECORD.SWFrameRec